Untitled

Lucas Voirin

Mise en contexte


On s’intéresse à l’impact de l’exploitation de la tourbe sur les communautés fauniques.

On considère les communautés d’invertébrés rampants d’une zone exploitée en comparaison à une zone témoin.



Dispositif

Dispositif

Dispositif

Dispositif

Dispositif

Jeu de données 1

\(Taxon_1\) \(Taxon_2\) \(…\) \(Taxon_i\)
\(Grille_1\) / \(Date_1\) \(N_{1, 1}\) \(N_{1, 2}\) \(…\) \(N_{1, i}\)
\(Grille_2\) / \(Date_2\) \(N_{2, 1}\) \(N_{2, 2}\) \(…\) \(N_{2, i}\)
\(…\) \(…\) \(…\) \(…\) \(…\)
\(Grille_n\) / \(Date_n\) \(N_{n, 1}\) \(N_{n, 2}\) \(…\) \(N_{n, i}\)

Jeu de données 2

\(Grille\) \(Date\) \(Taxon\) \(Pluie\) \(Température\)
\(...\) \(...\) \(...\) \(...\) \(...\)
\(...\) \(...\) \(...\) \(...\) \(...\)
\(...\) \(...\) \(...\) \(...\) \(...\)

Code

fosses = read.csv("data/fosses.csv") %>%
  pivot_longer(
    cols = 6:18,
    names_to = "Taxa",
    values_to = "Count"
  ) %>%
  mutate(Date = ymd(paste(Year,Month,Day))) %>% 
  left_join(DailyMeteo) %>% 
  left_join(vegetation)